unit uCxtSession;

interface

uses
  SysUtils, Classes, uDZPersistent, uDZDataExchange;

type
  TSession = class(TDzPersistent)
  private
    fUserName: string;
    fRealName: string;
    fBytesRead: Int64;
    fBytesWritten: Int64;
    fUserID: Integer;
    fTunnel: IDzDataExchangeTunnel;
    fSessionID: AnsiString;
    fMinorVersion: Integer;
    fMajorVersion: Integer;
    fBuildNumber: Integer;
    fReleaseNumber: Integer;
    fComputerID: AnsiString;
  public
    property Tunnel: IDzDataExchangeTunnel read fTunnel write fTunnel;
  published
    property SessionID: AnsiString read fSessionID write fSessionID;
    property UserID: Integer read fUserID write fUserID;
    property UserName: string read fUserName write fUserName;
    property RealName: string read fRealName write fRealName;
    property BytesRead: Int64 read fBytesRead write fBytesRead;
    property BytesWritten: Int64 read fBytesWritten write fBytesWritten;
    property MajorVersion: Integer read fMajorVersion write fMajorVersion;
    property MinorVersion: Integer read fMinorVersion write fMinorVersion;
    property ReleaseNumber: Integer read fReleaseNumber write fReleaseNumber;
    property BuildNumber: Integer read fBuildNumber write fBuildNumber;
    property ComputerID: AnsiString read fComputerID write fComputerID;
  end;
  PCxtSession = ^TSession;

implementation

end.
